?(%mexp.tm ?@
  %mpro.em ?@

  %mFunc
    %fp2
    %fp1
    %main
  ?%mFunc

    .22 .11
  %main ?%mCall
  .3$ // Halt

  %gv1 ?%mLab
    \11223344

  %main ?%mBeg
    %1 %fv1 ?%mDef
    %1 %fv2 ?%mDef
    ?%mDefEnd

    %fv1 ?%mAdr p
    %fp2 ?%mVal p
    %fp2 ?%mAdr p
      .D ?%mAlloc p
      .0 ?%mAlloc
    %fp1 ?%mAdr S
      .77224433
    %fv2 ?%mAdr S
    .0 %fv2 ?%mVal4 p
    .1 ?%mIf
      %gv1 ?%mAbs p
    ?%mElse
      %main ?%mAbs p
    ?%mEndIf
    .3 %gv1 ?%mGet1 p
    .5566 .1 %gv1 ?%mSet2
    ?%mReturn
  ?%mEnd
